home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-21 | 503 b | 23 lines | [TEXT/R*ch] |
- --<<<
- -- Kaleida Labs, Inc.
- -- Field Guide to the ScriptX Language
- -- chapter 9, example 2
-
- module Australia
- uses ScriptX
- exports beer, engineers
- end
- in module Australia
- global beer := "Foster's"
- global engineers := #("Wainwright", "Nicholson", "Williams")
-
- module California
- uses ScriptX
- exports chips, software
- exports almonds, avocados, cherries, figs, lettuce, wine
- exports entertainment, movies
- end
- in module California
- global chips := #("PowerPC", "Intel")
- global software := "ScriptX"
- -->>>